home *** CD-ROM | disk | FTP | other *** search
/ Menu Planner / Menu Planner (Ohio Distinctive Software).ISO / pc / pcreport.dir / 00007_nextPage.ls < prev    next >
Encoding:
Text File  |  1995-11-07  |  406 b   |  12 lines
  1. on mouseUp
  2.   global theFinishedPages
  3.   if integerp(integer(the text of cast "pageNum")) then
  4.     set currentPageNum to integer(the text of cast "pageNum")
  5.     if currentPageNum < count(theFinishedPages) then
  6.       set the text of field "theOutput" to getAt(theFinishedPages, currentPageNum + 1)
  7.       set the text of field "pageNum" to string(currentPageNum + 1)
  8.     end if
  9.     checkButtons()
  10.   end if
  11. end
  12.